home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 September / Macworld (1998-09).dmg / Serious Demos / MacWebCam 2.7 / Sample AppleScripts / Fetch 3.0.1 script < prev    next >
Encoding:
Text File  |  1997-01-12  |  3.0 KB  |  79 lines  |  [TEXT/ToyS]
  1. -- This is a MacWebCam post-process script to FTP the last image 
  2. --  (Image.jpg) to a remote FTP location and saves it as "current.jpg".
  3. -- This document should be viewed and edited using "Script Editor".  
  4. -- This script starts and terminates a PPP connection if not already 
  5. -- connected
  6. -- The FTP portion of the script uses a two step process to minimize 
  7. -- the time that a image is unavailable to the http server.
  8.  
  9. -- Step 1: Get the right PPP
  10. -- Verify that you have the latest Apple PPP
  11. --   Install and make sure that "PPP Commands" is in your 
  12. --   "System Folder:Extensions:Scripting Additions" folder.  
  13. -- To test your PPP, create a new script and type "PPP Connect" 
  14. -- and hit "Run."
  15. -- If you're already connected, you'll get an error.  Next, delete 
  16. -- that and type "PPP Disconnect" and hit "Run."
  17.  
  18. -- Step 2:
  19.  
  20. -- Open this document from ScriptEditor- save it as "MyFTP Script" 
  21. -- Create a Ram Disk for added efficiency using the "Memory" control 
  22. --   panel.  (Or rename file path to suit your needs)  
  23. -- Put an alias of Fetch 3.0.1 in your "Startup Items" folder in your 
  24. --   System Folder. If you have an older version, please upgrade.  
  25. -- Reboot to activate Ram Disk and start Fetch.
  26. -- Edit the script below, modifying the host, userID, password, and 
  27. --   file names as needed.  They have been marked with xxxxxx
  28.  
  29. -- Step 3:
  30.  
  31. -- Create a MacWebCam document with the following settings
  32. -- Set type to jpeg (already default)
  33. -- Set number of pictures to save to 1
  34. -- Set image destination folder to your Ram Disk
  35. -- set file name to Image
  36. -- Do not set your post process proc yet.
  37. -- Save your MacWebCam document in your System Folder:Startup items folder.
  38. -- Do a command-T (take picture now) to take the first picture.
  39. -- Next: Go to this script editor document and try running the script.  
  40. --  If all goes well, current.jpg should exist on your remote FTP server.
  41. -- Debug as needed.  When working, Quit Script Editor or close 
  42. --  "MyFTP Script".
  43. -- From MacWebCam, Set Post process script to this document to 
  44. --  "MyFTP Script"
  45.  
  46.  
  47. try
  48.     -- Find status of PPP connection and store in a variable "origState"
  49.     set origState to PPP status
  50.     -- If not connected, connect to your ISP
  51.     if (state of origState is not "Connected") then
  52.         PPP connect
  53.     end if
  54.     
  55.     -- If we're connected, do the FTP part
  56.     if (state of (PPP status) is "Connected") then
  57.         tell application "Fetch 3.0.1"
  58.             make new transfer window at beginning with properties {hostname:"ftp.xxxxxx.com", userid:"xxxxxxUserName", password:"xxxxxxPassword"}
  59.             put into transfer window "ftp.xxxxxx.com" item alias "RAM Disk:Image.jpg" text format Raw Data binary format Raw Data
  60.             set name of remote file "Image.jpg" to "current.jpg"
  61.             close front window
  62.         end tell
  63.     else
  64.         -- signal FTP error
  65.         -- change this to some error, or take out beep if it bugs you.
  66.         beep
  67.         beep
  68.     end if
  69.     
  70.     PPP disconnect
  71.     
  72. on error errMsg number errNum
  73.     -- signal PPP or other error
  74.     -- change this to some error, or take out beep if it bugs you.
  75.     beep
  76. end try
  77.  
  78.  
  79.